INSTANT SORTING 
Robert C. Fischer and Larry Crawford 


In the May-June '86 issue of SyncWare News, I went through several sort 
routines for the 2068 and 1009 computers. For general use, I decided that the 
Shell-Faulk was the best all-round choice, but I asked readers to send in any 
better ideas. One reader did, Larry Crawford from London Ontario, Canada. He 
took the Shell-Faulk sort and converted it to machine code. Between the two of 
us, we have worked out bugs, shortened it, and made it more flexible. 

This routine will work on beth the Spectrum and 2068, but with a little 
adjustment in the Basic and some relccating, it should also work on the 1000. 
While you will need to do a little “*acking" to switch it to the 1000, it only 
requires changing the storage areas zhe machine code uses and also the POKES 
made in Basic. All the storage areas used are in the printer buffer. Also, the 
location of "dest" is different on the 1000. 

Let's get right to the issue cl speed. Below is a comparison of the 
Shell-Faulk in Basic and machine code at sorting files that are each 19 
characters long: 


BASIC MACEINE CODE 
50 files = 11.8 seconds .2 seconds 
100 = 29:9 nee 
200 = 74.8 J 
400 = 184.9 1.8 
800 = 430.0 4.9 
1600 = 1049.0 15.0 
3200 = 2402.0 47.0 


I think that is the kind of speed anyone would be happy with! It works with 
any 2 dimensional string array (this is not for numbers - sorry) with any name 
and you can change the dimensions at will. A few Basic statements relay certain 
key bits of information to the machine code before it is called. I should point 
out that the machine code timings are based on just one test for each set of 
files. Considering the tremendous speed, I didn't think it critical to run 
several tests for an average. 

Here 1s a description of the Basic portion of the program. To use it, first 
load in the tape and list the procrar for reference. 

Line 110 of the listing just sets up some random files as was done on the 
Basic version (a Basic listing of the original version found in SyncWare News is 
printed later in this documentaticn}. One important change is that we DIM N$ 
with one extra file space. Thus, if *=100 we DIM N$(101,10). The extra file 
Space 1s used just to help move the other files around. It serves the same 
purpose as D$ does in the Basic version. When you press a key to start the sort, 
line 200 sets up certain machine code pointers. First we POKE 23296 and 23297 


with the number of files to be sorte (X) not including the extra file of 
course. Note that this allows you tc sort just part of your files such as the 
first 50 for example. Whatever nurber you poke will be all that you sort. Next 
we POKE the length of each file (L) znto 23298 and 23299. 

The statement LET N$(X+1)=N$/X-1) is used to make the computer store the 
address of the extra file in a special place called "dest". This is found in 
addresses 23629 and 23630. Therefcre we take the contents of those addresses and 


put them in 23300 and 23301. 

I have used N$() for my file storage, but you can use any name as long as 
you adjust all references to the nare in Basic. The same goes for the use of X 
for the number of files and other variables. 


the variables created by the machine code routine itself. This is one reason you 
can put the machine code any place =~ memory you want. 

Line 1000 tells the routine where to find the first file although we don't 
POKE this information in, instead the machine code will access "dest" directly. 
This also allows us to start the scrt later than the first file if we wish. LET 
N$(11)=N$(11) would begin the sort 2+ the 11th file. If you start the sort after 
the first file, make sure you adjust the number of files to sort accordingly. 

After the machine code routine is dcne, line 9910 prints out the files in | 
order. 

RUN 9999 to make a copy and verify it. When reloaded, line 9990 loads the 
machine code after setting RAMTOP. Finally, it goes to line 1 to start the test 
procedure. The actual sort routire cnly needs lines 200 and 1000, the rest is 
just to set up the files, etc. Te use the routine in your own programs, just 
insert the commands in lines 200 arc 1000 into your program (the line numbers 
make no difference and could all be combined into one line), and load the 
machine code into any open area abcve RAMTOP as long as there is room for 249 
bytes. Remember that the RANDOMIZ= USR address must be 12 bytes past the start 


version, I will often refer to it as I explain the machine code routine. 
Therefore, here is a copy of the important parts of that original to help you 
follow along. 


110 LET X=100: LET L=10: DIM N$ 
(X,L): FOR Z=1 TO X: FOR N=1 TO 
L: LET N$(Z,N)=CHR$ INT (65+RND* 
26): NEXT N: NEXT Z: PRINT "READ 
Y": BEEP .5,40: PAUSE 0: REM 
this line just sets up random 
files. The actual sort starts 
at 1050 
1050 LET M=X: LET S=M 
1100 LET S=INT (S/2): IF S<1 THE 
N GO TO 9900 
1115 IF S/2=INT (S/2) THEN LET S 
=S+1 
1120 FOR N=1 TO M-S: LET J=N 
1150 IF N$(J)>N$(J+S) THEN LET D 
$=N$(J): LET N$(J)=N$(J+S): LET 
N$(J+S)=D$: LET J=d3-S: IF J>0 TE 
EN GO TO 1150 
1160 NEXT N: GO TO 1100 
9910 REM when the sort is done you 
can set up a printout of the 
files here if you wish 


Here is a description of the macnine code. 


EFCE LD DE,5BO00 
The start of the code is at 61390 (bit remember, you can put it anywhere). This 
begins the final part of the sort ro l 
sorted so we need to clear the print tuffer back to all zeros. First put DE at 
the start of the buffer which is als 

EFD1 LD HL,5B16 
HL is put at the part of the buffer that is not affected by the machine code and 
thus each address from here to the era contains zeros already. 

EFD4 LD BC,0015 
BC holds the number of bytes affectes by the machine code routine. 

EFD7 LDIR 
This command moves whatever is in the address represented by HL into DE. HL and 
DE are automatically moved to the next address and BC is reduced by one. Thus 
zeros are placed into the affectec parts of the buffer so your next LPRINT 
command won't print garbage. 

EFD9 RET 
Return to Basic when buffer has been cleared. 

EFDA LD HL, (5B00) 


c the start of our machine code variables. 


The actual sort routine starts here irom Basic (address 61402) and if you 
relocate the code remember to RANDOMIZE USR 12 bytes past the start of the 
machine code. (We started at 61390, so we RANDOMIZE USR 61402). Load HL with 
total files (X) which was poked from Basic 

EFDD LD (5BOA) ,HL , 
Put X in storage for M. Same as M=X in line 1050 


EFEO LD (5B0C),HL 
Also put in storage for S. Same as S=™ in line 1050 
EFE3 LD HL, (5B0C) 
This starts line 1100. Get value cf ¢ 
EFE6 XOR A 
Clear Carry flag before RR instructicn and zero the A register 
EFE7 RR H 
EFES RR L 
These two instructions get the Intecer value of HL/2. Thus it is the same as INT 
(S/2) in line 1100 
EFEB LD A,H 
EFEC OR L 
EFED JR Z,EFCE 
If HL is zero (S=0) then we are dcere the sort, so jump to clear the printer 
buffer before returning to Basic. 
EFEF SET 0,L 
Set bit zero of L to make sure it is an odd value (line 1115). 
EFF1 LD (5BO0C) ,HL 
Store new value of S 
EFF4 PUSH HL 
Push S on stack 
EFF5 EX DE,HL 
Put S value in DE register pair 
EFF6 LD HL, (5BOA) 
Get M value 


EFF9 XOR A 
Clear Carry flag before subtracticn 
EFFA SBC HL,DE 
Calculate M-S 
EFFC LD (5BOE),HL 
Store M-S 
EFFF LD HL,Q001 
Frep for FOR-NEXT loop 
F002 LD (5B10),HL 
Store in N, thus loop starts as N 
F005 LD (5B12) ,HL 
Put in 7 (J=N). See line 
F008 LD HL, (5C4D) 
5C4D is the address for dest, so 
1000, dest is different so see your 
FOOB LD (5B06),HL ae 
Store address of first file in N$ 
FOOE LD DE, (5B02) 
Get the length of each file 
F012 POP BC 
Get value of S 
F013 ADD HL,DE 
F014 DEC BC 
F015 LD A,B 
F016 OR C 
F017 JR NZ, F013 
The above instructions calculate 
F019 LD (5808), HL 


1120 


F01C LD DE, (5B06) 
Get N$(J) address 
F020 LD BC, (5802) 
This is the file length 
F024 LD A, (DE) 
Get a character from 
F025 CP (HL) 
Compare to character 
F026 JR C,F033 
Jump if the order is 
F028 JR NZ,F068 
Jump to swap routine 
F02A DEC BC 


if order is wre 


If the characters are the same then w 


first decrementing the number of fil 
FO2B LD A,B 
FO2C GRC 
FO2D JR Z,F033 
These lines check to see if BC 
is zero, we jump to prepare fc 
FO2F INC DE 
F030 INC HL 
F031 JR F024 


y 
i 


au 
fa 


ows where the first file is. On 
al 


sh 
nu 


(pokec fzzm Basic) 


of file N$(J+S) 


N$ (J+S). This would be line 115 


sparation for NEXT N 


continue to compare the two files by 
characters to check 


thus all characters are checked. 


> 


To continue comparing the two filss w2 move HL and DE to the next characters and 


jump back to compare again 

F033 LD A, (5B14) 

F036 DEC A 
Since the FLAG was either 
255 


Zoro OF Ses: 


IR WE, FO44 
Peta, 

a Ios 

POU 


aks 


£ 1J } 

“ore in N$(J+tS) 

FO3D POP HL 

Get old N$(J) ~ what it 
FO3E LD (5BN9E), EHL 

Store in N$ (J) 
F041 LD (5B14),24 

The A register 15 zero so this clears 
F044 LD HL, (5819) 

The NEXT N begins here. First we cet 
F047 INC HL 

Increment co next value of 
F048 LD (5816) ,HL 


was before LEI J=d-S 


cld N value 


FOR-NEX 7 _30p 


Store new N value. 
FO4B LD (5B12),HL 
Store in J too (J=N) 


p FO4E EX DE, HL 

Put J value in DE 

FO4F LD HL, (5B0E) 

Get M-S value 
F052 XOR A 

Clear Carry flag 

F053 SBC HL, DE 

Subtract: (M-S)-J to see if 
F055 JR C,EFE3 


FCR-N=¥7T is done 


If J is more than M-S, the Loop is cine so jump 
of line 1100 

F057 LD HL, (5806) 
If loop is not done, get N$id} accress 


FOSA LD DE, (5B02) 
Get length of file 
FO5E ADD HL,DE 
Puts HL at next file 
FOSF LD (5B06) ,HEL 
Store new N${J} adress 
F062 LD HL, (5B08) 
Get N$(J+S) address 
F065 ADD HL,DE 
HL at next file. 
F066 JR F019 


New N$(J+S} address 


the ílag was not sez si Jump to NEXT 


First we get the FLAG. 


this will make it zero or carry down to 


N. 


is the address before we did 


back to the machine code version 


o 


Go back and sort again 
F068 LD HL, (5B06) 

Start the file swap here. 
FO6B LD DE, (5B04) 


Get N$(35) 


Load DE with the extra N$ file adéress which we 


poked from Basic 
FO6F LD BC, (5B02 
Cet file length sc we know 
i F073 PUSH DE 
Save D$ address 
F974 PUSH BC 
Save file length 
á F075 PUSE HL 
Save N$(J) address 
F076 LDIR 
Fut file N$(d) in B$ 
F078 LD HL, (5808) 
Get N$(J+S) address 
F07B PCP DE 
Get N$(J) address 
FO7C POP BC 
Get length of file 
: FO7D PUSH HL 
Save N¢(d+S) 
FO7E PUSH BC 
Save length 
FO7F LDIR 
Put N$(J+S) in N$(3)} 
F081 POP BC 
Get length 
F082 POP DE 
Get N$(J+S) address 
F083 POP HL 
Get D$ address 
F084 LDIR 
Put D$ in N$(5+S) 
F086 LD HL, (5B12?) 
Get J value 
F089 LD DE, (580C) 
Get S value 
FO8D XOR A 
Clear Carry flag 
FO8E SBC HL,DE 
Calculate J-S 
F090 LD (5B12),EL 
Store new J value 
F093 JR C,F933 
F995 JR Z,FO033 
If J is less than or 
F097 LD A, (5Bi4) 


equai to zer: 


W Mary 


address 


use as the Basic D$. 


zytes to move 


znan go to preparation tor NEXT N 


This starts our preparation te go žc line 1150. First get flag 


FOIA CP 90 


This was 


Compare flag to zero 
FO9C JR NZ,FOAA 
Jump if flag 1s already set 


FOSE LD HL, (5306) 
If flag is not set, 


N$ (J) 


FOA1 PUSE EL 


Save this 


Save it 


T 


value 

F0A2 LD HL, (5808) 
Get N$(J+S) 

$ FOAS FUSH HL 


address 


FOA6 INC A 


Make A regis 


FOA7 LD 
Use it to 
FOAA LD 
Get N$(J) 
FOAD LD 


(5808) ,EL 
Put it in N$(J+S). This allews fer 
FOBO PUSE 


5Bi4) ,2 


HL 


we must save tre 


to save 


ter held one 


Save address of N$(J+S) 
FOB1 LD BC, (5B02) 

Get file length 
FOBS5S LD DE, (5B0C) 


Get S value 


FOBS XOR A 
Clear Carry flag 
FOBA SBC HL,BC 
FOBC DEC DE 
FOBD LD A,D 


FOBE OR E 


FOBF JR NZ,FOB9 
These lines make the address 


FOC] LD 


( 


5B06),HL 
Store new N$(J) 


FOC4 POP HL 
Get N${J+S) 
FOC5 JR F066 


We now go back to 


address 


done in two steps. 


The storage of varia 


5B00-5B01 
5B02-5B03 
5B04-5B05 
5B06-5B07 
5B08-5309 
5BOA-5B0B 
5BOC-5BO0D 
5BOE-5BO0F 


2330 2-3) 
23304-5) 
23306-7) 
2330:89) 
23310-1) 


agcress 


O 
O 


oles is all 


ae 
a D 
Ou 73 
KH AQ 
D cti 
Wi E 
in 
a) 
w Quad ith eH 


LUIL 


N$ (JÀ aad 
N$ (J+S) 
M value 
S value 
M-S value 


ha 


5 


(Ora ih 


cresent address of N$(J), so first get 


Lit J=J-S 


adjust because of the LET J=J-S command 


jump is too far for a relative jump 
whith then goes to F013 


ze printer buffer as follows: 


so it is 


uv 


5B10-5B11 (23312-3) N value 
5812-5813 (23314-5) J value 
5R14 (23316) Flag 


Here are the pokes te make ir ĉscimal beginning at 61339. Follow each row 
from left to right before mcving tc zre next. Remember, you can start anywhere 
in protected memory as long as you aitust the. Basic SAVE/LOAD routines and the 
RANDOMTZE address. 


17 g) 91 33 22 91 1 21 0 237 176 201 47 
0 31 34 19 31 34 12 31 42 12 S41.  T25 -203 
28 203 29 124 181 4AN 223 203 197 34 12 31 229 
239 42 19 Jie EZS S239 82 34 14 91 33 1 N 
34 16 91 34 18 91 42 77 32 34 6 91 237 
31 2 91 193 25 tr -FAU 27E 32 250 34 § 91 
23st JI b Fio 234 75 2 91 26 190 56 t JZ 
62 EU i20 4177 40 Ż 19 aS 24 241 58 20 1 
61 32 TE, 225 34 8 91 225 34 6 gI 5b 20 
Ji 42 i6 JI 35 34 16 91 34 18 GAL 235 4? 
14 9E L75 237 82 56 140 42 6 9f 237 91 2 
31 25 34 6 31 42 8 9i 29 24 177 42 6 
9E- 237 1 4 FE- 237 75 2 Bie ZE, EO “2290 237 3 
176 42 8 St. 209 1923 229 427 237 1276-193 209° -225 
237 176 42 18 32 237 31 L2 91 175 237 82 34 
18 31 56 158 40 15€ 58 cat 91 254 0 32 12 
42 6 JT 229 42 3 9t 243 60 50 20 91 42 
6 31 34 8 Gk 229) 237 75 2 3h. 237 31 12 
Sd L75. 237 66 27 122 179 32 248 34 6 Si 225 
24 159 
If you have any improvements, r_2ase let me know: Robert C. Fischer; Rt 2 


Arizona St; Emerson, Ga 39137 


